home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / COBAIN.ZIP / remote.ini < prev    next >
INI File  |  1997-02-17  |  19KB  |  511 lines

  1. [Users]
  2. n0=1000:K_CoBaIn!trent@ftw-tx6-10.ix.netcom.com
  3. n1=2:*!*trent@*.ix.netcom.com
  4.  
  5. [Variables]
  6. n0=%echo 4$$CoBaIn$$
  7. n1=%ver $$CoBaIn$$ v1.0 CrEaTeD By K_CoBaIn (http://www.why.net/users/mike/scripts.html)
  8. n2=%time 7:54:50a
  9. n3=%timeonline 25
  10. n4=%hrz 0
  11. n5=%hrz2 0
  12. n6=%minz 8
  13. n7=%minz2 480
  14. n8=%online 856187185
  15. n9=%lag 1
  16. n10=%rawnick1 cobain-1
  17. n11=%rawnick2 cobain-2
  18. n12=%rawnick3 cobain-3
  19. n13=%rawnick4 cobain-4
  20. n14=%rawnick5 cobain-5
  21. n15=%p1 200
  22. n16=%p2 4
  23. n17=%p3 50
  24. n18=%size 2
  25. n19=%l1 4
  26. n20=%time2 11
  27. n21=%auto-op off
  28. n22=%connects 135
  29. n23=%msgprot on
  30. n24=%serverop off
  31. n25=%massdprot off
  32. n26=%autovoice off
  33. n27=%filterkick off
  34. n28=%masskick off
  35. n29=%nickflud off
  36. n30=%chatprot on
  37. n31=%dccprot on
  38. n32=%aj #.
  39. n33=%bytesize 65000
  40. n34=%c 1
  41. n35=%n1 *K_Co*
  42. n36=%n2 *BaIn*
  43. n37=%synched 24223613 -
  44. n38=%percbar 01[130%01]05::::::::::::::::::::::::::::::::::::::::::::::::::01[130%01]
  45. n39=%lmtu cool-1
  46. n40=%wholeft / (::phear::) Who left the *.uci.edu split on 01/26/97 at 3:33:46p
  47. n41=%wholeft2 \ |alpha|
  48. n42=%lastkick #teenchatting
  49. n43=%voice 0
  50. n44=%join#teenc()()l 15930974
  51. n45=%join#TeenBest 714390
  52. n46=%awaymins 12
  53. n47=%awaymsg haha
  54. n48=%awaysince 4:55:44a
  55. n49=%refresh
  56. n50=%pnum 3
  57. n51=%pnick _MackSKS1
  58. n52=%floodprot 1
  59. n53=%lewp 1
  60. n54=%join#teenchatting 8333750
  61. n55=%pchan #teenchatting
  62. n56=%massd 2
  63. n57=%opn 2
  64. n58=%massdn Chocsta Mith
  65. n59=%masso 4
  66. n60=%nopn 5
  67. n61=%op 1
  68. n62=%op2 1
  69. n63=%op3 K_CoBaIn
  70.  
  71. [Commands]
  72. n0=1:VERSION {
  73. n1=  if (%floodprot >= 5) { unset %floodprot | echo 2 -a / %echo You are being flooded | echo 2 -a \ %echo Ignoring all CTCPs for 2m | ignore -tu120 *!*@* | halt }
  74. n2=  inc %floodprot
  75. n3=  ignore -tu60 $wildsite
  76. n4=  .timer345 1 10 /unset %floodprot
  77. n5=  raw -q notice $nick : $+ $chr(1) $+ VERSION %ver $+ $chr(1)
  78. n6=}
  79. n7=1:DCC CHAT {
  80. n8=  if (%dccprot == on) {
  81. n9=    if ($parm5 == 4501) { echo 2 -a / %echo $nick tried to DCC CHAT bomb you. | echo 2 -a \ %echo Ignoring him for 2 minutes | ignore -tu120 $wildsite | halt }
  82. n10=    if ($parm5 == 4502) { echo 2 -a / %echo $nick tried to DCC CHAT bomb you. | echo 2 -a \ %echo Ignoring him for 2 minutes | ignore -tu120 $wildsite | halt }
  83. n11=    if ($parm5 == 4503) { echo 2 -a / %echo $nick tried to DCC CHAT bomb you. | echo 2 -a \ %echo Ignoring him for 2 minutes | ignore -tu120 $wildsite | halt }
  84. n12=    if ($parm5 == 4504) { echo 2 -a / %echo $nick tried to DCC CHAT bomb you. | echo 2 -a \ %echo Ignoring him for 2 minutes | ignore -tu120 $wildsite | halt }
  85. n13=    if ($parm5 == 4505) { echo 2 -a / %echo $nick tried to DCC CHAT bomb you. | echo 2 -a \ %echo Ignoring him for 2 minutes | ignore -tu120 $wildsite | halt }
  86. n14=    if ($nick == $me) { goto end }
  87. n15=    ignore -tu120 $wildsite
  88. n16=    :end
  89. n17=  }
  90. n18=}
  91. n19=1:DCC SEND {
  92. n20=  if (%dccprot == on) {
  93. n21=    if (%dccs == off) { halt }
  94. n22=    if (%dccs >= 5) { set %dccs off | echo 2 -a / %echo You are being DCC send flooded. | echo 2 -a \ %echo Ignoring all DCC sends for 30 secs | .timer489 1 30 /unset %dccs | halt }
  95. n23=    inc %dccs
  96. n24=    .timer178 1 10 /unset %dccs
  97. n25=  }
  98. n26=  echo 2 -a / %echo DCC Send
  99. n27=  echo 2 -a $chr(124) Nick: $nick
  100. n28=  echo 2 -a $chr(124) IP: $longip($parm4)
  101. n29=  echo 2 -a $chr(124) Port: $parm5
  102. n30=  echo 2 -a $chr(124) Filename: $parm3
  103. n31=  echo 2 -a $chr(124) Bytes: $parm6
  104. n32=  echo 2 -a \ %echo DCC Send
  105. n33=}
  106. n34=#away start
  107. n35=1:PAGE {
  108. n36=  ignore -tu60 $wildsite
  109. n37=  if (%pager == on) {
  110. n38=    beep
  111. n39=    echo 2 -a %echo (page from: $+ $nick $+ ) (msg: $+ $parm2* $+ )
  112. n40=  }
  113. n41=}
  114. n42=#away end
  115. n43=1:* {
  116. n44=  if (%floodprot >= 5) { unset %floodprot | echo 2 -a / %echo You are being flooded | echo 2 -a \ %echo Ignoring all CTCPs for 2m | ignore -tu120 *!*@* | halt }
  117. n45=  inc %floodprot
  118. n46=  ignore -tu60 $wildsite
  119. n47=  .timer345 1 10 /unset %floodprot
  120. n48=}
  121.  
  122. [Events]
  123. n0=#ping start
  124. n1=1:ON CTCPREPLY:PING * {
  125. n2=  if ($nick == %pnick) {
  126. n3=    %ping = $ctime - $parm2
  127. n4=    msg %pchan %echo $ $+ $nick $+ $ Ping RepLy: $duration(%ping) $+  lag or no lagg??
  128. n5=    unset %ping
  129. n6=    unset %pchan
  130. n7=    .disable #ping
  131. n8=    halt
  132. n9=  }
  133. n10=}
  134. n11=#ping end
  135. n12=1:ON TEXT:encrypted-> *:#:/echo 2 $chan %echo < $+ $nick $+ > $decrypt($parm2)
  136. n13=1:ON TEXT:encrypted-> *:?:/echo 2 $nick %echo < $+ $nick $+ >$decrypt($parm2)
  137. n14=1:ON SNOTICE:*Entering high-traffic mode*:/echo 6 -s $timestamp -^- Entering high-traffic mode: $parm8* | halt
  138. n15=1:ON SNOTICE:*Resuming standard operation*:/echo 6 -s $timestamp -^- Resuming standard operation: $parm8* | halt
  139. n16=1:ON SNOTICE*changed the idle time limit*:/echo 6 -s $timestamp -^- $parm4 changed idle limit to $parm12 minute(s) | halt
  140. n17=1:ON SNOTICE:*Kill line active for*:/echo 6 -s $timestamp -^- K-Line active for $parm8 on $server | halt
  141. n18=1:ON SNOTICE:*is now operator*:/echo 6 -s $timestamp -^- $parm4 $parm5 is now operator $parm9 | halt
  142. n19=1:ON SNOTICE:*Received KILL message for*From *.* Path*:/echo 6 -s $timestamp -^- Server ( $+ $parm10 $+ ) killed $remove($parm8,.) (collided) $parm13* | halt
  143. n20=1:ON SNOTICE:*Received KILL message for*:/echo 6 -s $timestamp -^- $parm10 killed $remove($parm8,.) $parm13* | halt
  144. n21=+2:ON JOIN:# {
  145. n22=  if ($address($me,2) != $address($nick,2)) {
  146. n23=    echo 2 $chan / %echo Someone is spoofing you!
  147. n24=    echo 2 $chan \ ->  $+ $address($nick,5) $+  <-
  148. n25=    if ($me isop $chan) {
  149. n26=      mode $chan -o+b $nick $address($nick,2)
  150. n27=      kick $chan $nick Spoofing is bad, bad, bad...)(::phear::
  151. n28=    }
  152. n29=  }
  153. n30=}
  154. n31=+1000:ON OP:#:/opfriends $chan | /mode $chan b | /scannicks $chan
  155. n32=+1000:ON KICK:# {
  156. n33=  echo 2 -s / %echo You were kicked from $chan by $nick $+ ! $+ $address
  157. n34=  echo 2 -s \ %echo Reason:  $+ $parms $+  - F6 to rejoin
  158. n35=  %lastkick = $chan
  159. n36=}
  160. n37=+1000:ON DEOP:# {
  161. n38=  echo 2 -a / %echo You were deopped from $chan
  162. n39=  echo 2 -a \ %echo on $atime $adate by $nick $+ ! $+ $address
  163. n40=}
  164. n41=+1000:ON TEXT:lagchk *:? {
  165. n42=  %lag = $ctime - $parm2
  166. n43=  halt
  167. n44=}
  168. n45=+1000:ON JOIN:# {
  169. n46=  if ($chan == #.) {
  170. n47=    if ($me == $nick(1,$chan) && $nick(2,$chan) == $null) { topic $chan  $$CoBaIn$$ | mode $chan +tn }
  171. n48=  }
  172. n49=  else {
  173. n50=    if ($me == $nick(1,$chan) && $nick(2,$chan) == $null) { mode $chan +tn }
  174. n51=  }
  175. n52=  .rlevel 1000
  176. n53=  .rlevel 2
  177. n54=  .guser 1000 $me 5
  178. n55=  .auser 1000 $me
  179. n56=  .guser 2 $me 3
  180. n57=  who $chan
  181. n58=  synch $chan
  182. n59=}
  183. n60=+1000:ON NICK {
  184. n61=  .rlevel 1000
  185. n62=  .guser 1000 $newnick 5
  186. n63=  .auser 1000 $newnick
  187. n64=  .guser 2 $newnick 3
  188. n65=  direct $newnick
  189. n66=}
  190. n67=+1000:ON TEXT:anti-idle*:?:/halt
  191. n68=@+1:ON TOPIC:# {
  192. n69=  if (% [ $+ topiclock [ $+ [ $chan ] ] ] != $null) {
  193. n70=    if (% [ $+ topiclock [ $+ [ $chan ] ] ] != $parms) {
  194. n71=      topic $chan % [ $+ topiclock [ $+ [ $chan ] ] ]
  195. n72=    }
  196. n73=  }
  197. n74=}
  198. n75=@+4:ON JOIN:# {
  199. n76=  if (%autovoice == on && dcc isin $nick) { mode $chan +v $nick }
  200. n77=  .auser 4 $nick
  201. n78=}
  202. n79=@+4:ON PART:# {
  203. n80=  .ruser 4 $nick
  204. n81=}
  205. n82=@+4:ON OP:# {
  206. n83=  if ($level($maddress($address($nick,5))) >= 100) { mode $chan -o $opnick }
  207. n84=  else { mode $chan -oo $nick $opnick }
  208. n85=}
  209. n86=1:ON TEXT:*ping me*:# {
  210. n87=  if (%pingme == off) { halt }
  211. n88=  if (%pnick == $nick) { halt }
  212. n89=  if (%pnum >= 3) { unset %pnum | set %pingme off | .timer173 1 120 /unset %pingme | halt }
  213. n90=  inc %pnum
  214. n91=  set %pnick $nick
  215. n92=  set %pchan $chan
  216. n93=  .enable #ping
  217. n94=  .ctcp $nick ping
  218. n95=  .timer632 1 120 /unset %pnick
  219. n96=  .timer317 1 120 /unset %pnum
  220. n97=}
  221. n98=1:ON TEXT:*what*my*quit*:# {
  222. n99=  if (% [ $+ quitmsgs [ $+ [ $nick ] ] ] != $null) {
  223. n100=    if (%quitquery == off) { halt }
  224. n101=    if (%quitquery >= 3) { set %quitquery off | .timer 1 120 /unset %quitquery | halt }
  225. n102=    inc %quitquery
  226. n103=    .timer128 1 60 /unset %quitquery
  227. n104=    msg $chan %echo *** Quits: $nick  $+ % [ $+ quitmsgs [ $+ [ $nick ] ] ] $+ thats why you left!!
  228. n105=  }
  229. n106=}
  230. n107=@100:ON DEOP:# {
  231. n108=  if (%deop >= 3) { if ($nick == $me) { halt } | kick $chan $nick %echo $+ MassDeop)(MaSS Deoping Is Badd)$$CoBaIn$$ | unset %deop | halt }
  232. n109=  inc %deop
  233. n110=  .timer178 1 2 /unset %deop
  234. n111=  if ($nick == $me) { halt }
  235. n112=  if ($level($maddress($address($nick,5))) >= 100) { mode $chan +o $opnick | halt }
  236. n113=  else { mode $chan -o+obb $nick $opnick $address($nick,3) $address($nick,2) | kick $chan $nick Don't deop my friends)(::phear:: }
  237. n114=}
  238. n115=@100:ON KICK:# {
  239. n116=  if (%masskick == on) {
  240. n117=    if ($nick == $me) { goto skip }
  241. n118=    if (% [ $+ kicks [ $+ [ $chan ] ] ] >= 5) { kick $chan $nick Mass Kick)(GoD DaMn LoSer)$$CoBaIn$$ | unset %kicks $+ $chan | goto skip }
  242. n119=    inc %kicks $+ $chan
  243. n120=    .timer534 1 5 /unset % $+ kicks $+ $chan
  244. n121=  }
  245. n122=  :skip
  246. n123=  if ($level($maddress($address($nick,5))) >= 100) { invite $knick $chan | halt }
  247. n124=  else { mode $chan -o+obb $nick $knick $address($nick,3) $address($nick,2) | invite $knick $chan }
  248. n125=}
  249. n126=100:ON TEXT:op *:? {
  250. n127=  unset %passwd
  251. n128=  %passwd = $read -s $+ $maddress($address($nick,5)) $mircdirpass.ini
  252. n129=  if (%passwd == $null) { msg $nick %echo Please set a password first, type /msg $me pass (password), thanks! | halt }
  253. n130=  if (%passwd == $parm2) {
  254. n131=    %0p
  255. n132=    :start
  256. n133=    inc %0p
  257. n134=    if ($chan(%0p) == $null) { unset %0p | halt }
  258. n135=    if ($nick ison $chan(%0p) && $nick !isop $chan(%0p) && $me is op $chan(%0p)) { mode $chan(%0p) +o $nick }
  259. n136=    goto start
  260. n137=  }
  261. n138=}
  262. n139=100:ON TEXT:help:? {
  263. n140=  msg $nick / %echo Friend Commands
  264. n141=  msg $nick $chr(124) info (msg) - msg displayed when you join
  265. n142=  msg $nick $chr(124) op (password) - op you in all my channels
  266. n143=  msg $nick \ %echo Friend Commands
  267. n144=  halt
  268. n145=}
  269. n146=100:ON TEXT:pass *:? {
  270. n147=  unset %passwd
  271. n148=  %passwd = $read -s $+ $maddress($address($nick,5)) $mircdirpass.ini
  272. n149=  if (%passwd != $null) { halt }
  273. n150=  notice $nick / %echo Password set to ' $+ $parm2 $+ '
  274. n151=  notice $nick \ %echo /msg $me help for more information
  275. n152=  write $mircdirpass.ini $maddress($address($nick,5)) $parm2
  276. n153=  halt
  277. n154=}
  278. n155=100:ON TEXT:info *:? {
  279. n156=  if ($chr(36) isin $parm2*) { halt }
  280. n157=  if ($chr(91) isin $parm2*) { halt }
  281. n158=  if ($chr(124) isin $parm2*) { halt }
  282. n159=  unset %passwd
  283. n160=  %passwd = $read -s $+ $maddress($address($nick,5)) $mircdirpass.ini
  284. n161=  if (%passwd == $null) { msg $nick %echo Please set a password first, type /msg $me pass (password), thanks! | halt }
  285. n162=  else { write -ds $+ $maddress($address($nick,5)) $mircdirinfo.ini | write $mircdirinfo.ini $maddress($address($nick,5)) $parm2* | notice $nick %echo Info now set to: $parm2* | halt }
  286. n163=}
  287. n164=@+200:ON JOIN:# {
  288. n165=  if (%autovoice == on && dcc isin $nick) { mode $chan +v $nick }
  289. n166=  %info = $read -s $+ $maddress($address($nick,5)) $mircdirinfo.ini
  290. n167=  if (%info != $null) { msg $chan ( $+ $nick $+ ) %info | unset %info }
  291. n168=  unset %passwd
  292. n169=  %passwd = $read -s $+ $maddress($address($nick,5)) $mircdirpass.ini
  293. n170=  if (%passwd == $null) { notice $nick %echo You are on the friend list but haven't set a pass, please type /msg $me pass (password), thanks! }
  294. n171=  .auser 200 $nick
  295. n172=  if (%auto-op == on) { mode $chan +o $nick }
  296. n173=}
  297. n174=@+200:ON PART:# {
  298. n175=  .ruser 200 $nick
  299. n176=}
  300. n177=@+100:ON JOIN:# {
  301. n178=  if (%autovoice == on && dcc isin $nick) { mode $chan +v $nick }
  302. n179=  %info = $read -s $+ $maddress($address($nick,5)) $mircdirinfo.ini
  303. n180=  if (%info != $null) { msg $chan ( $+ $nick $+ ) %info | unset %info }
  304. n181=  unset %passwd
  305. n182=  %passwd = $read -s $+ $maddress($address($nick,5)) $mircdirpass.ini
  306. n183=  if (%passwd == $null) { notice $nick %echo You are on the friend list but haven't set a pass, please type /msg $me pass (password), thanks! }
  307. n184=  .auser 100 $nick
  308. n185=}
  309. n186=@+100:ON PART:# {
  310. n187=  .ruser 100 $nick
  311. n188=}
  312. n189=1:ON CHATOPEN {
  313. n190=  if ($nick == %rawnick1 || $nick == %rawnick2 || $nick == %rawnick3 || $nick == %rawnick4 || $nick == %rawnick5) {
  314. n191=    .msg =$nick user $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) (::phear::)
  315. n192=    %rnick = phear $+ $r(1,9) $+ $r(1,9) $+ $r(1,9) $+ $r(1,9)
  316. n193=    .msg =$nick nick %rnick
  317. n194=    .msg =$nick mode %rnick +i
  318. n195=    unset %rnick
  319. n196=  }
  320. n197=  if ($nick == %rawnick1) { set %raw1 . }
  321. n198=  if ($nick == %rawnick2) { set %raw2 . }
  322. n199=  if ($nick == %rawnick3) { set %raw3 . }
  323. n200=  if ($nick == %rawnick4) { set %raw4 . }
  324. n201=  if ($nick == %rawnick5) { set %raw5 . }
  325. n202=}
  326. n203=1:ON CHATCLOSE {
  327. n204=  if ($nick == %rawnick1) { unset %raw1 }
  328. n205=  if ($nick == %rawnick2) { unset %raw2 }
  329. n206=  if ($nick == %rawnick3) { unset %raw3 }
  330. n207=  if ($nick == %rawnick4) { unset %raw4 }
  331. n208=  if ($nick == %rawnick5) { unset %raw5 }
  332. n209=}
  333. n210=@+5:ON JOIN:# {
  334. n211=  %shitlistmsg = $read -s $+ $maddress $mircdirshitlist.ini
  335. n212=  echo 2 $chan / %echo Shitlisted User Joined
  336. n213=  echo 2 $chan $chr(124) Nick: $nick
  337. n214=  echo 2 $chan $chr(124) Address: $address
  338. n215=  echo 2 $chan $chr(124) Shitlist Mask: $maddress
  339. n216=  echo 2 $chan $chr(124) Reason: %shitlistmsg
  340. n217=  echo 2 $chan \ %echo Shitlisted User Joined
  341. n218=  mode $chan -o+b $nick $maddress
  342. n219=  kick $chan $nick Shitlisted: $+ %shitlistmsg $+ )$$CoBaIn$$
  343. n220=  unset %shitlistmsg
  344. n221=}
  345. n222=@1:ON BAN:# {
  346. n223=  if ($banmask iswm $address($me,5) && $nick == $me) { mode $chan -b $banmask | halt }
  347. n224=  if ($banmask iswm $address($me,5)) { mode $chan -ob+bb $nick $banmask $address($nick,3) $address($nick,2) | kick $chan $nick Don't ban me, bitch!)(::phear:: | halt }
  348. n225=  if ($level($maddress($banmask)) >= 100 && $level($nick) >= 100) { mode $chan -b $banmask | halt }
  349. n226=  if ($level($maddress($banmask)) >= 100) { mode $chan -ob+bb $nick $banmask $address($nick,3) $address($nick,2) | kick $chan $nick Never ban my friends!)(::phear:: | halt }
  350. n227=  if (%filterkick == on) {
  351. n228=    fk $chan $banmask Banned by $address($nick,5)
  352. n229=  }
  353. n230=}
  354. n231=1:ON TEXT:%n2:*:/set %lmtu $nick
  355. n232=#serverop disabled
  356. n233=@100:ON SERVEROP:#:!
  357. n234=@1:ON SERVEROP:#:/mode $chan -oooo $opnick
  358. n235=#serverop end
  359. n236=1:ON DNS {
  360. n237=  if ($raddress == $null) {
  361. n238=    if ($iaddress == $null) {
  362. n239=      echo 2 -a %echo Could not resolve  $+ $naddress $+ 
  363. n240=    }
  364. n241=    if ($naddress == $null) {
  365. n242=      echo 2 -a %echo Could not resolve  $+ $iaddress $+ 
  366. n243=    }
  367. n244=  }
  368. n245=  else {
  369. n246=    echo 2 -a %echo (DNS)( $+ $naddress $+ )( $+ $iaddress $+ )( $+ $longip($iaddress) $+ )
  370. n247=  }
  371. n248=}
  372. n249=@1:ON DEOP:# {
  373. n250=  if ($nick == $me) { halt }
  374. n251=  if (%massdprot == on) {
  375. n252=    if (%deop >= 3) { kick $chan $nick MassDeop)(I Don'T think SO)$$CoBaIn$$ | unset %deop | halt }
  376. n253=    inc %deop
  377. n254=    .timer178 1 2 /unset %deop
  378. n255=  }
  379.  
  380. [Raw]
  381. n0=401:*:/echo 2 -a %echo No such channel/nick: $parm2 | halt
  382. n1=301:* {
  383. n2=  if (%temporary != $null) {
  384. n3=    echo 2 -a $chr(124) %echo Away: $parm3*
  385. n4=    halt
  386. n5=  }
  387. n6=}
  388. n7=312:* {
  389. n8=  if (%temporary != $null) {
  390. n9=    echo 2 -a $chr(124) %echo IRC Server: $parm3 -/- $parm4*
  391. n10=    halt
  392. n11=  }
  393. n12=}
  394. n13=313:* {
  395. n14=  if (%temporary != $null) {
  396. n15=    echo 2 -a $chr(124) %echo Warning: 4Is an IRC operator
  397. n16=    halt
  398. n17=  }
  399. n18=}
  400. n19=317:* {
  401. n20=  if (%temporary != $null) {
  402. n21=    echo 2 -a $chr(124) %echo Idle: $duration($parm3)
  403. n22=    halt
  404. n23=  }
  405. n24=}
  406. n25=318:* {
  407. n26=  if (%temporary != $null) {
  408. n27=    echo 2 -a \ %echo End of /WHOIS
  409. n28=    unset %temporary
  410. n29=    halt
  411. n30=  }
  412. n31=}
  413. n32=319:* {
  414. n33=  if (%temporary != $null) {
  415. n34=    echo 2 -a $chr(124) %echo Channels: $parm3*
  416. n35=    halt
  417. n36=  }
  418. n37=}
  419. n38=#bans disabled
  420. n39=367:* {
  421. n40=  echo 2 -a $chr(124) -
  422. n41=  if ($parm3 iswm $address($me,5)) {
  423. n42=    echo 2 -a $chr(124) (Ban on $parm2 $+ )( $+ $parm3 $+ ) *you!*
  424. n43=    echo 2 -a $chr(124) (F4 to shitlist this peice of shit who banned you)
  425. n44=    set %banaddy $mask($parm4,3)
  426. n45=  }
  427. n46=  else { echo 2 -a $chr(124) (Ban on $parm2 $+ )( $+ $parm3 $+ ) }
  428. n47=  echo 2 -a $chr(124) (Set by)( $+ $parm4 $+ )
  429. n48=  echo 2 -a $chr(124) (Time)( $+ $asctime($parm5) $+ )
  430. n49=  halt
  431. n50=}
  432. n51=368:* {
  433. n52=  echo 2 -a -
  434. n53=  echo 2 -a \ %echo End of Ban List
  435. n54=  .disable #bans
  436. n55=  halt
  437. n56=}
  438. n57=#bans end
  439. n58=352:* {
  440. n59=  if (%wholist == $null) {
  441. n60=    %tot = $nick(0,$parm2)
  442. n61=    %opz = $opnick(0,$parm2) * 100
  443. n62=    %opz = %opz / %tot
  444. n63=    %nonopz = 100 - %opz
  445. n64=    %voice = 0
  446. n65=    %gone = 0
  447. n66=    %here = 0
  448. n67=    %cops = 0
  449. n68=    set %wholist .
  450. n69=  }
  451. n70=  if (+ isin $parm7) { inc %voice }
  452. n71=  if (G isin $parm7) { inc %gone }
  453. n72=  if (H isin $parm7) { inc %here }
  454. n73=  if (* isin $parm7) { inc %cops }
  455. n74=}
  456. n75=315:* {
  457. n76=  unset %wholist
  458. n77=  echo 2 $parm2 / %echo $parm2 Channel Status
  459. n78=  echo 2 $parm2 $chr(124) Total ( $+ %tot $+ ): $percbar(100)
  460. n79=  echo 2 $parm2 $chr(124) Ops ( $+ $opnick(0,$parm2) $+ ): $percbar(%opz)
  461. n80=  echo 2 $parm2 $chr(124) Non Ops ( $+ $nopnick(0,$parm2) $+ ): $percbar(%nonopz)
  462. n81=  %voiceperc = %voice * 100
  463. n82=  %voiceperc = %voiceperc / %tot
  464. n83=  echo 2 $parm2 $chr(124) Voice ( $+ %voice $+ ): $percbar(%voiceperc)
  465. n84=  %hereperc = %here * 100
  466. n85=  %hereperc = %hereperc / %tot
  467. n86=  echo 2 $parm2 $chr(124) Here ( $+ %here $+ ): $percbar(%hereperc)
  468. n87=  %goneperc = 100 - %hereperc
  469. n88=  echo 2 $parm2 $chr(124) Gone ( $+ %gone $+ ): $percbar(%goneperc)
  470. n89=  %copsperc = %cops * 100
  471. n90=  %copsperc = %copsperc / %tot
  472. n91=  echo 2 $parm2 $chr(124) IRCops ( $+ %cops $+ ): $percbar(%copsperc)
  473. n92=  echo 2 $parm2 \ %echo $parm2 Channel Status
  474. n93=  unset %tot %opz %percops %here %gone %cops %nonopz %voiceperc %hereperc %copsperc %goneperc
  475. n94=}
  476. n95=404:* {
  477. n96=  if ($me isop $parm2) { echo 2 $parm2 %echo $parm2 is desynched on $nick }
  478. n97=}
  479. n98=482:* {
  480. n99=  if ($me isop $parm2) { echo 2 $parm2 %echo $parm2 is desynched on $nick }
  481. n100=}
  482. n101=251:* {
  483. n102=  echo 2 -a / LUSERS report
  484. n103=  echo 2 -a $chr(124) %echo There are $parm4 users, $parm7 invisible on $parm10 servers.
  485. n104=  halt
  486. n105=}
  487. n106=252:* {
  488. n107=  echo 2 -a $chr(124) %echo $parm2 operator(s) online
  489. n108=  halt
  490. n109=}
  491. n110=253:* {
  492. n111=  echo 2 -a $chr(124) %echo $parm2 unknown connection(s)
  493. n112=  halt
  494. n113=}
  495. n114=254:* {
  496. n115=  echo 2 -a $chr(124) %echo $parm2 channel(s) formed
  497. n116=  halt
  498. n117=}
  499. n118=255:* {
  500. n119=  echo 2 -a $chr(124) %echo I have $parm4 clients and $parm7 servers
  501. n120=  echo 2 -a \ LUSERS end
  502. n121=  halt
  503. n122=}
  504. n123=367:* {
  505. n124=  if ($parm3 iswm $address($me,5)) { mode $parm2 -b $parm3 }
  506. n125=  if ($level($maddress($parm3)) >= 100) { mode $parm2 -b $parm3 }
  507. n126=  if (%filterkick == on) {
  508. n127=    if ($me isop $parm2) { fk $parm2 $parm3 Banned by $parm4 }
  509. n128=  }
  510. n129=}
  511.